Option Explicit
Sub B_Sample046()
    MsgBox Application.PathSeparator
End Sub